home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.06 Jun 91 / Split Button Code / Split Button Stack / card_3851.txt < prev    next >
Encoding:
Text File  |  1990-08-04  |  8.4 KB  |  405 lines
  1. -- card: 3851 from stack: in
  2. -- bmap block id: 3073
  3. -- flags: 0000
  4. -- background id: 2668
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on nothing
  8. end nothing
  9.  
  10. on inside
  11.   show card field "woof"
  12.   wait 30
  13.   hide card field "woof"
  14. end inside
  15.  
  16.  
  17.  
  18.  
  19. -- part 262 (field)
  20. -- low flags: 80
  21. -- high flags: 0002
  22. -- rect: left=134 top=137 right=159 bottom=182
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 0
  26. -- font id: 5
  27. -- text size: 14
  28. -- style flags: 0
  29. -- line height: 18
  30. -- part name: Woof
  31.  
  32.  
  33. -- part 263 (button)
  34. -- low flags: 00
  35. -- high flags: 0000
  36. -- rect: left=209 top=143 right=253 bottom=273
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: New Button
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   inside
  48. end mouseUp
  49.  
  50.  
  51. -- part 264 (button)
  52. -- low flags: 00
  53. -- high flags: 0000
  54. -- rect: left=188 top=136 right=165 bottom=210
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: split 1
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   split "/",nothing,inside
  66. end mouseUp
  67.  
  68.  
  69. -- part 265 (button)
  70. -- low flags: 00
  71. -- high flags: 0000
  72. -- rect: left=210 top=124 right=136 bottom=213
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: split 2
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   split "/",nothing,inside
  84. end mouseUp
  85.  
  86.  
  87. -- part 266 (button)
  88. -- low flags: 00
  89. -- high flags: 0000
  90. -- rect: left=213 top=124 right=143 bottom=247
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 0 / 0
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: split 3
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   split "\",nothing,inside
  102. end mouseUp
  103.  
  104.  
  105. -- part 267 (button)
  106. -- low flags: 00
  107. -- high flags: 0000
  108. -- rect: left=247 top=143 right=176 bottom=273
  109. -- title width / last selected line: 0
  110. -- icon id / first selected line: 0 / 0
  111. -- text alignment: 1
  112. -- font id: 0
  113. -- text size: 12
  114. -- style flags: 0
  115. -- line height: 16
  116. -- part name: split 4
  117. ----- HyperTalk script -----
  118. on mouseUp
  119.   split "\",nothing,inside
  120. end mouseUp
  121.  
  122.  
  123. -- part 268 (button)
  124. -- low flags: 00
  125. -- high flags: 0000
  126. -- rect: left=273 top=176 right=198 bottom=286
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 0 / 0
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: split 5
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   split "\",nothing,inside
  138. end mouseUp
  139.  
  140.  
  141. -- part 269 (button)
  142. -- low flags: 00
  143. -- high flags: 0000
  144. -- rect: left=286 top=198 right=219 bottom=288
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: split 6
  153. ----- HyperTalk script -----
  154. on mouseUp
  155.   split "\",nothing,inside
  156. end mouseUp
  157.  
  158.  
  159. -- part 270 (button)
  160. -- low flags: 00
  161. -- high flags: 0000
  162. -- rect: left=256 top=219 right=252 bottom=288
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 0 / 0
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: split 7
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   split "/",inside,nothing
  174. end mouseUp
  175.  
  176.  
  177. -- part 271 (button)
  178. -- low flags: 00
  179. -- high flags: 0000
  180. -- rect: left=221 top=252 right=263 bottom=256
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: split 8
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   split "/",inside,nothing
  192. end mouseUp
  193.  
  194.  
  195. -- part 272 (button)
  196. -- low flags: 00
  197. -- high flags: 0000
  198. -- rect: left=205 top=238 right=263 bottom=221
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 1
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: split 9
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   split "\",inside,nothing
  210. end mouseUp
  211.  
  212.  
  213. -- part 273 (button)
  214. -- low flags: 00
  215. -- high flags: 0000
  216. -- rect: left=205 top=225 right=238 bottom=210
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: split 10
  225. ----- HyperTalk script -----
  226. on mouseUp
  227.   split "/",nothing,inside
  228. end mouseUp
  229.  
  230.  
  231. -- part 274 (button)
  232. -- low flags: 00
  233. -- high flags: 0000
  234. -- rect: left=208 top=175 right=225 bottom=210
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 1
  238. -- font id: 0
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: split 11
  243. ----- HyperTalk script -----
  244. on mouseUp
  245.   split "\",inside,nothing
  246. end mouseUp
  247.  
  248.  
  249. -- part 275 (button)
  250. -- low flags: 00
  251. -- high flags: 0000
  252. -- rect: left=189 top=167 right=175 bottom=208
  253. -- title width / last selected line: 0
  254. -- icon id / first selected line: 0 / 0
  255. -- text alignment: 1
  256. -- font id: 0
  257. -- text size: 12
  258. -- style flags: 0
  259. -- line height: 16
  260. -- part name: split 12
  261. ----- HyperTalk script -----
  262. on mouseUp
  263.   split "\",inside,nothing
  264. end mouseUp
  265.  
  266.  
  267. -- part 276 (button)
  268. -- low flags: 00
  269. -- high flags: 0000
  270. -- rect: left=188 top=165 right=167 bottom=189
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: split 13
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   split "\",inside,nothing
  282. end mouseUp
  283.  
  284.  
  285. -- part 277 (button)
  286. -- low flags: 00
  287. -- high flags: 0000
  288. -- rect: left=273 top=197 right=220 bottom=287
  289. -- title width / last selected line: 0
  290. -- icon id / first selected line: 0 / 0
  291. -- text alignment: 1
  292. -- font id: 0
  293. -- text size: 12
  294. -- style flags: 0
  295. -- line height: 16
  296. -- part name: New Button
  297. ----- HyperTalk script -----
  298. on mouseUp
  299.   inside
  300. end mouseUp
  301.  
  302.  
  303. -- part 278 (button)
  304. -- low flags: 00
  305. -- high flags: 0000
  306. -- rect: left=288 top=198 right=210 bottom=300
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: New Button
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   inside
  318. end mouseUp
  319.  
  320.  
  321. -- part 279 (button)
  322. -- low flags: 00
  323. -- high flags: 0000
  324. -- rect: left=294 top=192 right=204 bottom=306
  325. -- title width / last selected line: 0
  326. -- icon id / first selected line: 0 / 0
  327. -- text alignment: 1
  328. -- font id: 0
  329. -- text size: 12
  330. -- style flags: 0
  331. -- line height: 16
  332. -- part name: New Button
  333. ----- HyperTalk script -----
  334. on mouseUp
  335.   inside
  336. end mouseUp
  337.  
  338.  
  339. -- part 280 (button)
  340. -- low flags: 00
  341. -- high flags: 0000
  342. -- rect: left=303 top=182 right=194 bottom=315
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 0 / 0
  345. -- text alignment: 1
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: New Button
  351. ----- HyperTalk script -----
  352. on mouseUp
  353.   inside
  354. end mouseUp
  355.  
  356.  
  357. -- part 282 (field)
  358. -- low flags: 81
  359. -- high flags: 0004
  360. -- rect: left=330 top=47 right=227 bottom=493
  361. -- title width / last selected line: 0
  362. -- icon id / first selected line: 0 / 0
  363. -- text alignment: 0
  364. -- font id: 3
  365. -- text size: 10
  366. -- style flags: 0
  367. -- line height: 13
  368. -- part name: Instructions
  369. ----- HyperTalk script -----
  370. on mouseUp
  371.   hide the target
  372. end mouseUp
  373.  
  374.  
  375. -- part 283 (button)
  376. -- low flags: 00
  377. -- high flags: A004
  378. -- rect: left=355 top=268 right=293 bottom=495
  379. -- title width / last selected line: 0
  380. -- icon id / first selected line: 0 / 0
  381. -- text alignment: 1
  382. -- font id: 0
  383. -- text size: 12
  384. -- style flags: 0
  385. -- line height: 16
  386. -- part name: Instructions
  387. ----- HyperTalk script -----
  388. on mouseUp
  389.   set the visible of card field "Instructions" to not the visible of card field "Instructions"
  390. end mouseUp
  391.  
  392.  
  393.  
  394. -- part contents for background part 1
  395. ----- text -----
  396. Click The Dog
  397.  
  398. -- part contents for card part 262
  399. ----- text -----
  400. Woof
  401.  
  402. -- part contents for card part 282
  403. ----- text -----
  404. Click near the dog - nothing happens.  Click on the dog - it barks.  This demonstrates polygonal buttons, as simulated by the "split" message.
  405. To create your own polygonal button, choose "New Card" from the Edit menu, paste in a picture of your own, click "New Poly Button", and click around the outline of your polygon.  Click on the first point to close.